home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_307_zDialog < prev    next >
Encoding:
Text File  |  1992-04-08  |  1.1 KB  |  48 lines
  1. { %filename% -- modeless dialog }
  2. { Created %date% %time% by AppMaker }
  3.  
  4. {    We recommend that you not modify this module and instead modify        }
  5. {    its subclass, %dlogname%.  The 'z' prefix on this module marks%        %}
  6. {    a module which is likely to be regenerated by AppMaker after you    }
  7. {    make changes to the user interface.  The modules without the 'z'    }
  8. {    prefix will not be regenerated by AppMaker unless you delete them.    }
  9. {    Using a separate subclass to override the AppMaker-generated code    }
  10. {    lets you regenerate code without losing your hand-coded changes.    } 
  11.  
  12. Unit %unitname%;
  13. Interface
  14.  
  15. Uses
  16.     TCL,
  17.     AMCL,
  18.     %AppName%Intf;
  19.  
  20. {----------}
  21. Implementation
  22.  
  23. {----------}
  24. Procedure Z%dlogname%.IZ%dlogname%    (aSupervisor:    CDirectorOwner);
  25. var
  26.     enclosure:        CView;
  27.     supervisor:        CBureaucrat;
  28. Begin
  29.     inherited IAMDialogDirector (%dlogname%ID, aSupervisor);
  30.  
  31.     enclosure := itsWindow;
  32.     supervisor := itsWindow;
  33.     %for each item gen create%
  34.  
  35. End; {IZ%dlogname%}
  36.     
  37. %for each item gen zAuxiliaryMethod%
  38. {----------}
  39. Procedure Z%dlogname%.UpdateMenus;
  40. Begin
  41.     inherited UpdateMenus;
  42.  
  43.     %for each item gen UpdateMenus%
  44.  
  45. End; {UpdateMenus}
  46.  
  47. End. {%unitname%}
  48.